unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, clGZip,
  FMX.Controls.Presentation, FMX.StdCtrls, clSimpleHttpServer, clHttpRequest,
  clTcpClient, clTcpClientTls, clHttp;

type
  TForm1 = class(TForm)
    clGZip1: TclGZip;
    Btnv_1: TButton;
    clSimpleHttpServer1: TclSimpleHttpServer;
    clHttpRequest1: TclHttpRequest;
    clHttp1: TclHttp;
    procedure Btnv_1Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}
procedure TForm1.Btnv_1Click(Sender: TObject);
begin
//  Self.clSimpleHttpServer1.
clHttp1.StartTls;
clHttp1.Get();
end;

end.
